home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / crossword / includes / cwmenus.i < prev    next >
Encoding:
Text File  |  1980-01-04  |  7.8 KB  |  602 lines
  1.  
  2.  
  3. idcmp1    equ    MOUSEBUTTONS+MOUSEMOVE
  4. idcmp2    equ    GADGETDOWN+GADGETUP+MENUPICK
  5. idcmp3    equ    DISKINSERTED+DISKREMOVED
  6. idcmp4    equ    RAWKEY
  7.  
  8. wf1    equ    BORDERLESS+BACKDROP+REPORTMOUSE+ACTIVATE
  9. wf2    equ    SMART_REFRESH+NOCAREREFRESH
  10. wf3    equ    RMBTRAP
  11.  
  12.  
  13. * All the screen, window, menu & gadget stuff (edited by me where
  14. * I deemed necessary) goes from here on...
  15.  
  16.  
  17. my_new_screen:
  18.  
  19.     dc.w    0,0
  20.     dc.w    320,256
  21.     dc.w    4
  22.     dc.b    5,4
  23.     dc.w    NULL
  24.     dc.w    CUSTOMSCREEN+CUSTOMBITMAP
  25.     dc.l    NULL
  26.     dc.l    NewScreenName
  27.     dc.l    NULL
  28.     dc.l    NULL
  29.  
  30. NewScreenName:
  31.     dc.b    'CrossWord V1.2 : Press HELP',0
  32.     cnop 0,2
  33.  
  34. Palette:
  35.     dc.w    $0000,$0FFF,$004B,$008C
  36.     dc.w    $0070,$0FF0,$0B00,$0630
  37.     dc.w    $0741,$0951,$0A72,$0B84
  38.     dc.w    $0DA5,$0AAA,$0777,$0555
  39.  
  40.     dc.w    $0000,$0FF0,$0A72,$0DA5    ;sprite colours
  41.     dc.w    $0070,$0FF0,$0B00,$0630
  42.     dc.w    $0741,$0951,$0A72,$0B84
  43.     dc.w    $0DA5,$0AAA,$0777,$0555
  44.  
  45.  
  46.  
  47. my_new_window:
  48.  
  49.     dc.w    0,0
  50.     dc.w    320,256
  51.     dc.b    5,4
  52.     dc.l    idcmp1+idcmp2+idcmp3+idcmp4
  53.     dc.l    wf1+wf2+wf3
  54.     dc.l    ScrLeft
  55.     dc.l    NULL
  56.     dc.l    NULL
  57.     dc.l    NULL
  58.     dc.l    NULL
  59.     dc.w    5,5
  60.     dc.w    -1,-1
  61.     dc.w    CUSTOMSCREEN
  62.  
  63. my_main_menu:
  64.  
  65. Menu1:
  66.     dc.l    Menu2
  67.     dc.w    4,0
  68.     dc.w    64,0
  69.     dc.w    MENUENABLED
  70.     dc.l    Menu1Name
  71.     dc.l    MenuItem1
  72.     dc.w    0,0,0,0
  73.  
  74. Menu1Name:
  75.     dc.b    'Project',0
  76.     cnop 0,2
  77.  
  78. MenuItem1:
  79.     dc.l    MenuItem2
  80.     dc.w    0,0
  81.     dc.w    110,40
  82.     dc.w    COMMSEQ+ITEMENABLED
  83.     dc.l    0
  84.     dc.l    Image1
  85.     dc.l    Image2
  86.     dc.b    'A'
  87.     dc.b    NULL
  88.     dc.l    NULL
  89.     dc.w    MENUNULL
  90.  
  91. MenuItem2:
  92.     dc.l    MenuItem3
  93.     dc.w    0,50
  94.     dc.w    110,40
  95.     dc.w    COMMSEQ+ITEMENABLED
  96.     dc.l    0
  97.     dc.l    Image3
  98.     dc.l    Image4
  99.     dc.b    'N'
  100.     dc.b    NULL
  101.     dc.l    NULL
  102.     dc.w    MENUNULL
  103.  
  104. MenuItem3:
  105.     dc.l    NULL
  106.     dc.w    0,100
  107.     dc.w    110,40
  108.     dc.w    COMMSEQ+ITEMENABLED
  109.     dc.l    0
  110.     dc.l    Image5
  111.     dc.l    Image6
  112.     dc.b    'Q'
  113.     dc.b    NULL
  114.     dc.l    NULL
  115.     dc.w    MENUNULL
  116.  
  117. Menu2:
  118.     dc.l    Menu3
  119.     dc.w    68,0
  120.     dc.w    36,0
  121.     dc.w    MENUENABLED
  122.     dc.l    Menu2Name
  123.     dc.l    MenuItem4
  124.     dc.w    0,0,0,0
  125.  
  126. Menu2Name:
  127.     dc.b    'Grid',0
  128.     cnop 0,2
  129.  
  130. MenuItem4:
  131.     dc.l    MenuItem5
  132.     dc.w    0,0
  133.     dc.w    110,40
  134.     dc.w    COMMSEQ+ITEMENABLED
  135.     dc.l    0
  136.     dc.l    Image7
  137.     dc.l    Image8
  138.     dc.b    'B'
  139.     dc.b    NULL
  140.     dc.l    NULL
  141.     dc.w    MENUNULL
  142.  
  143. MenuItem5:
  144.     dc.l    MenuItem6
  145.     dc.w    0,50
  146.     dc.w    110,40
  147.     dc.w    COMMSEQ+ITEMENABLED
  148.     dc.l    0
  149.     dc.l    Image9
  150.     dc.l    Image10
  151.     dc.b    'W'
  152.     dc.b    NULL
  153.     dc.l    NULL
  154.     dc.w    MENUNULL
  155.  
  156. MenuItem6:
  157.     dc.l    NULL
  158.     dc.w    0,100
  159.     dc.w    110,40
  160.     dc.w    COMMSEQ+ITEMENABLED
  161.     dc.l    0
  162.     dc.l    Image11
  163.     dc.l    Image12
  164.     dc.b    'C'
  165.     dc.b    NULL
  166.     dc.l    NULL
  167.     dc.w    MENUNULL
  168.  
  169. Menu3:
  170.     dc.l    Menu4
  171.     dc.w    106,0
  172.     dc.w    42,0
  173.     dc.w    MENUENABLED
  174.     dc.l    Menu3Name
  175.     dc.l    MenuItem7
  176.     dc.w    0,0,0,0
  177.  
  178. Menu3Name:
  179.     dc.b    'Clues',0
  180.     cnop 0,2
  181.  
  182. MenuItem7:
  183.     dc.l    MenuItem8
  184.     dc.w    0,0
  185.     dc.w    70,40
  186.     dc.w    ITEMENABLED
  187.     dc.l    0
  188.     dc.l    Image13
  189.     dc.l    Image14
  190.     dc.b    NULL
  191.     dc.b    NULL
  192.     dc.l    NULL
  193.     dc.w    MENUNULL
  194.  
  195. MenuItem8:
  196.     dc.l    MenuItem9
  197.     dc.w    0,50
  198.     dc.w    70,40
  199.     dc.w    ITEMENABLED
  200.     dc.l    0
  201.     dc.l    Image15
  202.     dc.l    Image16
  203.     dc.b    NULL
  204.     dc.b    NULL
  205.     dc.l    NULL
  206.     dc.w    MENUNULL
  207.  
  208. MenuItem9:
  209.     dc.l    NULL
  210.     dc.w    0,100
  211.     dc.w    70,40
  212.     dc.w    ITEMENABLED
  213.     dc.l    0
  214.     dc.l    Image17
  215.     dc.l    Image18
  216.     dc.b    NULL
  217.     dc.b    NULL
  218.     dc.l    NULL
  219.     dc.w    MENUNULL
  220.  
  221. Menu4:
  222.     dc.l    NULL
  223.     dc.w    154,0
  224.     dc.w    74,0
  225.     dc.w    MENUENABLED
  226.     dc.l    Menu4Name
  227.     dc.l    MenuItem10
  228.     dc.w    0,0,0,0
  229.  
  230. Menu4Name:
  231.     dc.b    'Solutions',0
  232.     cnop 0,2
  233.  
  234. MenuItem10:
  235.     dc.l    MenuItem11
  236.     dc.w    0,0
  237.     dc.w    64,70
  238.     dc.w    COMMSEQ+ITEMENABLED
  239.     dc.l    0
  240.     dc.l    Image19
  241.     dc.l    Image20
  242.     dc.b    'E'
  243.     dc.b    NULL
  244.     dc.l    NULL
  245.     dc.w    MENUNULL
  246.  
  247. MenuItem11:
  248.     dc.l    NULL
  249.     dc.w    0,90
  250.     dc.w    64,70
  251.     dc.w    COMMSEQ+ITEMENABLED
  252.     dc.l    0
  253.     dc.l    Image21
  254.     dc.l    Image22
  255.     dc.b    'R'
  256.     dc.b    NULL
  257.     dc.l    NULL
  258.     dc.w    MENUNULL
  259.  
  260.  
  261. * These are the gadgets attached to the backdrop window
  262. * and used for scrolling the crossword grid.
  263.  
  264. * Equates are used to correctly position gadgets relative to
  265. * the crossword grid.
  266.  
  267.  
  268. PG_LPOS        equ    GRID_LEFT
  269. PG_UPOS        equ    GRID_UP
  270.  
  271. PG_DPOS        equ    PG_UPOS+MAX_DISPY*SQ_Y+8
  272. PG_RPOS        equ    PG_LPOS+MAX_DISPX*SQ_X+8
  273.  
  274.  
  275. * Crossword program gadgets
  276.  
  277. * Scroll gadgets linked to the main Backdrop screen
  278.  
  279.  
  280. ScrLeft:
  281.     dc.l    ScrRight
  282.     dc.w    PG_LPOS,PG_DPOS
  283.     dc.w    20,20
  284.     dc.w    GADGHIMAGE+GADGIMAGE
  285.     dc.w    GADGIMMEDIATE        ;RELVERIFY
  286.     dc.w    BOOLGADGET
  287.     dc.l    LEFTG_R
  288.     dc.l    LEFTG_S
  289.     dc.l    NULL
  290.     dc.l    NULL
  291.     dc.l    NULL
  292.     dc.w    1
  293.     dc.l    DecHScr
  294.     dc.l    DoneRG        ;extra entry!
  295.     
  296. ScrRight:
  297.     dc.l    ScrHPG
  298.     dc.w    PG_RPOS-24,PG_DPOS
  299.     dc.w    20,20
  300.     dc.w    GADGHIMAGE+GADGIMAGE
  301.     dc.w    GADGIMMEDIATE        ;RELVERIFY
  302.     dc.w    BOOLGADGET
  303.     dc.l    RIGHTG_R
  304.     dc.l    RIGHTG_S
  305.     dc.l    NULL
  306.     dc.l    NULL
  307.     dc.l    NULL
  308.     dc.w    2
  309.     dc.l    IncHScr
  310.     dc.l    DoneRG        ;extra entry!
  311.  
  312. ScrHPG:
  313.     dc.l    ScrHBox
  314.     dc.w    PG_LPOS+27,PG_DPOS+5
  315.     dc.w    100,10
  316.     dc.w    GADGHIMAGE+GADGIMAGE
  317.     dc.w    GADGIMMEDIATE
  318.     dc.w    PROPGADGET
  319.     dc.l    CPOT_R
  320.     dc.l    CPOT_S
  321.     dc.l    NULL
  322.     dc.l    NULL
  323.     dc.l    ScrHPGSInfo
  324.     dc.w    4
  325.     dc.l    ScrollHoriz
  326.     dc.l    DoneRG        ;extra entry!
  327.  
  328. ScrHPGSInfo:
  329.     dc.w    FREEHORIZ+PROPBORDERLESS
  330.     dc.w    0,0
  331.     dc.w    4369,-1
  332.     dc.w    0,0,0,0,0,0
  333.  
  334. ScrHBox:
  335.     dc.l    ScrUp
  336.     dc.w    PG_LPOS+22,PG_DPOS
  337.     dc.w    110,20
  338.     dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
  339.     dc.w    NULL
  340.     dc.w    BOOLGADGET
  341.     dc.l    HBox2
  342.     dc.l    NULL
  343.     dc.l    NULL
  344.     dc.l    NULL
  345.     dc.l    NULL
  346.     dc.w    NULL    ;gadget no 3
  347.     dc.l    NULL
  348.     dc.l    NULL        ;extra entry!
  349.  
  350.  
  351. ScrUp:
  352.     dc.l    ScrDown
  353.     dc.w    PG_RPOS,PG_UPOS
  354.     dc.w    20,20
  355.     dc.w    GADGHIMAGE+GADGIMAGE
  356.     dc.w    GADGIMMEDIATE        ;RELVERIFY
  357.     dc.w    BOOLGADGET
  358.     dc.l    UPG_R
  359.     dc.l    UPG_S
  360.     dc.l    NULL
  361.     dc.l    NULL
  362.     dc.l    NULL
  363.     dc.w    5
  364.     dc.l    DecVScr
  365.     dc.l    NULL        ;extra entry!
  366.  
  367. ScrDown:
  368.     dc.l    ScrVPG
  369.     dc.w    PG_RPOS,PG_DPOS-24
  370.     dc.w    20,20
  371.     dc.w    GADGHIMAGE+GADGIMAGE
  372.     dc.w    GADGIMMEDIATE        ;RELVERIFY
  373.     dc.w    BOOLGADGET
  374.     dc.l    DOWNG_R
  375.     dc.l    DOWNG_S
  376.     dc.l    NULL
  377.     dc.l    NULL
  378.     dc.l    NULL
  379.     dc.w    6
  380.     dc.l    IncVScr
  381.     dc.l    DoneRG        ;extra entry!
  382.  
  383. ScrVPG:
  384.     dc.l    ScrVBox
  385.     dc.w    PG_RPOS+5,PG_UPOS+27
  386.     dc.w    10,100
  387.     dc.w    GADGHIMAGE+GADGIMAGE
  388.     dc.w    GADGIMMEDIATE
  389.     dc.w    PROPGADGET
  390.     dc.l    DPOT_R
  391.     dc.l    DPOT_S
  392.     dc.l    NULL
  393.     dc.l    NULL
  394.     dc.l    ScrVPGSInfo
  395.     dc.w    8
  396.     dc.l    ScrollVert
  397.     dc.l    DoneRG        ;extra entry!
  398.  
  399. ScrVPGSInfo:
  400.     dc.w    FREEVERT+PROPBORDERLESS
  401.     dc.w    0,0
  402.     dc.w    -1,4369
  403.     dc.w    0,0,0,0,0,0
  404.  
  405. ScrVBox:
  406.     dc.l    ScrACBox
  407.     dc.w    PG_RPOS,PG_UPOS+22
  408.     dc.w    20,110
  409.     dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
  410.     dc.w    NULL
  411.     dc.w    BOOLGADGET
  412.     dc.l    VBox2
  413.     dc.l    NULL
  414.     dc.l    NULL
  415.     dc.l    NULL
  416.     dc.l    NULL
  417.     dc.w    NULL    ;gadget no 7
  418.     dc.l    NULL
  419.     dc.l    NULL
  420.  
  421. ScrACBox:
  422.     dc.l    ScrDNBox
  423.     dc.w    PG_RPOS+78,PG_UPOS
  424.     dc.w    51,20
  425.     dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
  426.     dc.w    NULL
  427.     dc.w    BOOLGADGET
  428.     dc.l    HBox1
  429.     dc.l    NULL
  430.     dc.l    ACT_1
  431.     dc.l    NULL
  432.     dc.l    NULL
  433.     dc.w    NULL    ;new gadget
  434.     dc.l    NULL
  435.     dc.l    NULL
  436.  
  437. ScrDNBox:
  438.     dc.l    EditSwitch
  439.     dc.w    PG_RPOS+78,PG_UPOS+30
  440.     dc.w    51,20
  441.     dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
  442.     dc.w    NULL
  443.     dc.w    BOOLGADGET
  444.     dc.l    HBox1
  445.     dc.l    NULL
  446.     dc.l    DNT_1
  447.     dc.l    NULL
  448.     dc.l    NULL
  449.     dc.w    NULL    ;new gadget
  450.     dc.l    NULL
  451.     dc.l    NULL
  452.  
  453. VZIP    equ    64+50
  454.  
  455. EditSwitch:
  456.  
  457.     dc.l    EditSWBox
  458.     dc.w    PG_RPOS+82,PG_UPOS+VZIP+4
  459.     dc.w    32,12
  460.     dc.w    GADGHIMAGE+GADGIMAGE
  461.     dc.w    RELVERIFY+GADGIMMEDIATE+TOGGLESELECT
  462.     dc.w    BOOLGADGET
  463.     dc.l    ESImg1
  464.     dc.l    ESImg2
  465.     dc.l    NULL
  466.     dc.l    NULL
  467.     dc.l    NULL
  468.     dc.w    NULL
  469.     dc.l    SetEditing    ;2 userdatas!
  470.     dc.l    EdSwHelp
  471.  
  472. EditSWBox:
  473.     dc.l    NULL
  474.     dc.w    PG_RPOS+78,PG_UPOS+VZIP
  475.     dc.w    1,1
  476.     dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
  477.     dc.w    NULL
  478.     dc.w    BOOLGADGET
  479.     dc.l    ESHBox
  480.     dc.l    NULL
  481.     dc.l    EST_1
  482.     dc.l    NULL
  483.     dc.l    NULL
  484.     dc.w    NULL
  485.     dc.l    NULL        ;2 userdatas!
  486.     dc.l    NULL
  487.  
  488.  
  489. ACT_1:
  490.     dc.b    9,0,RP_JAM1,0
  491.     dc.w    -51,6
  492.     dc.l    NULL
  493.     dc.l    ACT_T1
  494.     dc.l    ACT_2
  495.  
  496. ACT_T1:
  497.     dc.b    'Across',0
  498.     cnop    0,2
  499.  
  500. ACT_2:
  501.     dc.b    1,0,RP_JAM1,0
  502.     dc.w    -52,5
  503.     dc.l    NULL
  504.     dc.l    ACT_T1
  505.     dc.l    NULL
  506.  
  507. DNT_1:
  508.     dc.b    9,0,RP_JAM1,0
  509.     dc.w    -51,6
  510.     dc.l    NULL
  511.     dc.l    DNT_T1
  512.     dc.l    DNT_2
  513.  
  514. DNT_T1:
  515.     dc.b    'Down',0
  516.     cnop    0,2
  517.  
  518. DNT_2:
  519.     dc.b    1,0,RP_JAM1,0
  520.     dc.w    -52,5
  521.     dc.l    NULL
  522.     dc.l    DNT_T1
  523.     dc.l    NULL
  524.  
  525.  
  526. EST_1:
  527.     dc.b    8,0,RP_JAM1,0
  528.     dc.w    4,-10
  529.     dc.l    NULL
  530.     dc.l    ESTT_1
  531.     dc.l    EST_2
  532.  
  533. EST_2:
  534.     dc.b    1,0,RP_JAM1,0
  535.     dc.w    3,-11
  536.     dc.l    NULL
  537.     dc.l    ESTT_1
  538.     dc.l    EST_3
  539.  
  540. ESTT_1:
  541.     dc.b    'Grid',0
  542.     cnop 0,2
  543.  
  544. EST_3:
  545.     dc.b    8,0,RP_JAM1,0
  546.     dc.w    -7,24
  547.     dc.l    NULL
  548.     dc.l    ESTT_2
  549.     dc.l    EST_4
  550.  
  551. EST_4:
  552.     dc.b    1,0,RP_JAM1,0
  553.     dc.w    -8,23
  554.     dc.l    NULL
  555.     dc.l    ESTT_2
  556.     dc.l    EST_5
  557.  
  558. ESTT_2:
  559.     dc.b    'Editing',0
  560.     cnop 0,2
  561.  
  562. EST_5:
  563.     dc.b    8,0,RP_JAM1,0
  564.     dc.w    -18,7
  565.     dc.l    NULL
  566.     dc.l    ESTT_3
  567.     dc.l    EST_6
  568.  
  569. EST_6:
  570.     dc.b    1,0,RP_JAM1,0
  571.     dc.w    -19,6
  572.     dc.l    NULL
  573.     dc.l    ESTT_3
  574.     dc.l    EST_7
  575.  
  576. ESTT_3:
  577.     dc.b    'ON',0
  578.     cnop 0,2
  579.  
  580. EST_7:
  581.     dc.b    8,0,RP_JAM1,0
  582.     dc.w    44,7
  583.     dc.l    NULL
  584.     dc.l    ESTT_4
  585.     dc.l    EST_8
  586.  
  587. EST_8:
  588.     dc.b    1,0,RP_JAM1,0
  589.     dc.w    43,6
  590.     dc.l    NULL
  591.     dc.l    ESTT_4
  592.     dc.l    NULL
  593.  
  594. ESTT_4:
  595.     dc.b    'OFF',0
  596.     cnop 0,2
  597.  
  598.  
  599.  
  600.  
  601.  
  602.